home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Textfiles / zines / Phrack / Phrack Issue 52.sit / Phrack52 / 52 / P52-20 < prev   
Text File  |  1998-01-27  |  7KB  |  270 lines
  1. ---[  Phrack Magazine   Volume 8, Issue 52 January 26, 1998, article 20 of 20
  2.  
  3.  
  4. -------------------------[  Phrack Magzine Extraction Utility
  5.  
  6.  
  7. --------[  Phrack Staff
  8.  
  9.  
  10.     Added to the list of extraction variants this time is a version in AWK,
  11.     and a version in sh.  Also, the C version has ben spruced up to accept
  12.     file name globs.  Keep `em coming...
  13.  
  14.  
  15. ---------------------8<------------CUT-HERE----------->8---------------------
  16.  
  17. <++> PEU/extract2.c 
  18. /*  extract.c by Phrack Staff and sirsyko 
  19.  *
  20.  *  (c) Phrack Magazine, 1997 
  21.  *      1.8.98 rewritten by route:
  22.  *          - aesthetics
  23.  *          - now accepts file globs
  24.  *      todo:
  25.  *          - more info in tag header (file mode, checksum)
  26.  *  Extracts textfiles from a specially tagged flatfile into a hierarchical 
  27.  *  directory strcuture.  Use to extract source code from any of the articles 
  28.  *  in Phrack Magazine (first appeared in Phrack 50).
  29.  *
  30.  *  gcc -o extract extract.c
  31.  *  
  32.  *  ./extract file1 file2 file3 ...
  33.  */
  34.  
  35.  
  36. #include <stdio.h>
  37. #include <stdlib.h>
  38. #include <sys/stat.h>
  39. #include <string.h>
  40. #include <dirent.h>
  41.  
  42. #define BEGIN_TAG   "<++> "
  43. #define END_TAG     "<-->"
  44. #define BT_SIZE     strlen(BEGIN_TAG)
  45. #define ET_SIZE     strlen(END_TAG)
  46.  
  47. struct f_name
  48. {
  49.     u_char name[256];
  50.     struct f_name *next;
  51. };
  52.  
  53. int
  54. main(int argc, char **argv)
  55. { 
  56.     u_char b[256], *bp, *fn;
  57.     int i, j = 0;
  58.     FILE *in_p, *out_p = NULL; 
  59.     struct f_name *fn_p = NULL, *head = NULL; 
  60.  
  61.     if (argc < 2)
  62.     {
  63.         printf("Usage: %s file1 file2 ... filen\n", argv[0]);
  64.         exit(0); 
  65.     }
  66.  
  67.     /*
  68.      *  Fill the f_name list with all the files on the commandline (ignoring
  69.      *  argv[0] which is this executable).  This includes globs.
  70.      */
  71.     for (i = 1; (fn = argv[i++]); )
  72.     {
  73.         if (!head)
  74.         {
  75.             if (!(head = (struct f_name *)malloc(sizeof(struct f_name))))
  76.             {
  77.                 perror("malloc");
  78.                 exit(1);
  79.             }
  80.             strncpy(head->name, fn, sizeof(head->name));
  81.             head->next = NULL;
  82.             fn_p = head;
  83.         }
  84.         else
  85.         {
  86.             if (!(fn_p->next = (struct f_name *)malloc(sizeof(struct f_name))))
  87.             {
  88.                 perror("malloc");
  89.                 exit(1);
  90.             }
  91.             fn_p = fn_p->next;
  92.             strncpy(fn_p->name, fn, sizeof(fn_p->name));
  93.             fn_p->next = NULL;
  94.         }
  95.     }
  96.     /*
  97.      *  Sentry node.
  98.      */
  99.     if (!(fn_p->next = (struct f_name *)malloc(sizeof(struct f_name))))
  100.     {
  101.         perror("malloc");
  102.         exit(1);
  103.      }
  104.     fn_p = fn_p->next;
  105.     fn_p->next = NULL;
  106.  
  107.     /*
  108.      *  Check each file in the f_name list for extraction tags.
  109.      */
  110.     for (fn_p = head; fn_p->next; fn_p = fn_p->next)
  111.     {
  112.         if (!(in_p = fopen(fn_p->name, "r")))
  113.         {
  114.             fprintf(stderr, "Could not open input file %s.\n", fn_p->name);
  115.         continue;
  116.         }
  117.         else fprintf(stderr, "Opened %s\n", fn_p->name);
  118.         while (fgets(b, 256, in_p))
  119.         { 
  120.             if (!strncmp (b, BEGIN_TAG, BT_SIZE))
  121.             { 
  122.             b[strlen(b) - 1] = 0;           /* Now we have a string. */
  123.                 j++;
  124.  
  125.                 if ((bp = strchr(b + BT_SIZE + 1, '/')))
  126.                 {
  127.                     while (bp)
  128.                     {
  129.                 *bp = 0;
  130.                 mkdir(b + BT_SIZE, 0700); 
  131.                 *bp = '/';
  132.                 bp = strchr(bp + 1, '/'); 
  133.             }
  134.                 }
  135.                 if ((out_p = fopen(b + BT_SIZE, "w")))
  136.                 {
  137.                     printf("- Extracting %s\n", b + BT_SIZE);
  138.                 }
  139.                 else
  140.                 {
  141.             printf("Could not extract '%s'.\n", b + BT_SIZE);
  142.             continue;
  143.             }
  144.         } 
  145.             else if (!strncmp (b, END_TAG, ET_SIZE))
  146.             {
  147.             if (out_p) fclose(out_p);
  148.             else
  149.                 {
  150.                 fprintf(stderr, "Error closing file %s.\n", fn_p->name);
  151.             continue;
  152.             }
  153.             } 
  154.             else if (out_p)
  155.             {
  156.                 fputs(b, out_p);
  157.             }
  158.         }
  159.     }
  160.     if (!j) printf("No extraction tags found in list.\n");
  161.     else printf("Extracted %d file(s).\n", j);
  162.     return (0);
  163. }
  164.  
  165. /* EOF */
  166. <-->
  167. <++> PEU/extract.pl
  168. # Daos <daos@nym.alias.net>
  169. #!/bin/sh -- # -*- perl -*- -n
  170. eval 'exec perl $0 -S ${1+"$@"}' if 0;
  171.  
  172. $opening=0;
  173.  
  174. if (/^\<\+\+\>/) {$curfile = substr($_ , 5); $opening=1;};
  175. if (/^\<\-\-\>/) {close ct_ex; $opened=0;}; 
  176. if ($opening) {                        
  177.         chop $curfile;                 
  178.         $sex_dir= substr( $curfile, 0, ((rindex($curfile,'/'))) ) if ($curfile =~ m/\//);
  179.         eval {mkdir $sex_dir, "0777";}; 
  180.         open(ct_ex,">$curfile"); 
  181.         print "Attempting extraction of $curfile\n";
  182.         $opened=1; 
  183. }
  184. if ($opened && !$opening) {print ct_ex $_}; 
  185. <-->
  186.  
  187. <++> PEU/extract.awk
  188. #!/usr/bin/awk -f
  189. #
  190. # Yet Another Extraction Script
  191. # - <sirsyko>
  192. #
  193. /^\<\+\+\>/ {
  194.         ind = 1
  195.         File = $2
  196.         split ($2, dirs, "/")
  197.         Dir="."
  198.         while ( dirs[ind+1] ) {
  199.                 Dir=Dir"/"dirs[ind]
  200.                 system ("mkdir " Dir" 2>/dev/null")
  201.                 ++ind
  202.         }
  203.         next
  204. }
  205. /^\<\-\-\>/ {
  206.         File = ""
  207.         next
  208. }
  209. File { print >> File }
  210. <-->
  211.  
  212. <++> PEU/extract.sh
  213. #!/bin/sh
  214. # exctract.sh : Written 9/2/1997 for the Phrack Staff by <sirsyko>
  215. #
  216. # note, this file will create all directories relative to the current directory
  217. # originally a bug, I've now upgraded it to a feature since I dont want to deal
  218. # with the leading / (besides, you dont want hackers giving you full pathnames
  219. # anyway, now do you :)
  220. # Hopefully this will demonstrate another useful aspect of IFS other than 
  221. # haxoring rewt
  222. #
  223. # Usage: ./extract.sh <filename>
  224.  
  225. cat $* | (
  226. Working=1
  227. while [ $Working ];
  228. do
  229.         OLDIFS1="$IFS"
  230.         IFS=
  231.         if read Line; then
  232.                 IFS="$OLDIFS1"
  233.                 set -- $Line
  234.                 case "$1" in
  235.                 "<++>") OLDIFS2="$IFS"
  236.                         IFS=/
  237.                         set -- $2
  238.                         IFS="$OLDIFS2"
  239.                         while [ $# -gt 1 ]; do
  240.                                 File=${File:-"."}/$1
  241.                                 if [ ! -d $File ]; then
  242.                                         echo "Making dir $File"
  243.                                         mkdir $File
  244.                                 fi
  245.                                 shift
  246.                         done                               
  247.                         File=${File:-"."}/$1
  248.                         echo "Storing data in $File"
  249.                 ;;
  250.                 "<-->") if [ "x$File" != "x" ]; then
  251.                                 unset File
  252.                         fi ;;
  253.                 *)      if [ "x$File" != "x" ]; then
  254.                                         IFS=
  255.                                         echo "$Line" >> $File
  256.                                         IFS="$OLDIFS1"
  257.                         fi
  258.                 ;;
  259.                 esac
  260.                 IFS="$OLDIFS1"
  261.         else
  262.                 echo "End of file"
  263.                 unset Working
  264.         fi
  265. done
  266. )                                                                    
  267. <-->
  268.  
  269. ----[  EOF
  270.